Option Explicit

Dim RowValue
Dim cn As New ADODB.Connection
Dim rsOrders As New ADODB.Recordset
Dim rsCustomers As New ADODB.Recordset

Private Sub DataList1_Click()
  DataGrid1.Text = DataList1.Text
  DataList1.Visible = False
End Sub

Private Sub DataList1_LostFocus()
  DataList1.Visible = False
End Sub

Private Sub DataGrid1_Scroll(Cancel As Integer)
  DataList1.Visible = False
End Sub

Private Sub Form_Load()
    cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
            "Data Source=NWind.mdb;"
    With rsOrders
        .ActiveConnection = cn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open "Select * From Orders"
    End With
    Set Adodc1.Recordset = rsOrders
    With rsCustomers
        .ActiveConnection = cn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "Select CustomerID From Customers ORDER BY CustomerID"
    End With
    Set Adodc2.Recordset = rsCustomers
    DataList1.Visible = False
    DataGrid1.Columns(1).Button = True
End Sub

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
   If ColIndex = 1 Then
      DataList1.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
      DataList1.Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
      ' Width and Height properties can be set a design time
      ' The width of the list does not have to be the same as the width of the grid column
      DataList1.Width = DataGrid1.Columns("CustomerID").Width
      DataList1.Height = 1440
      DataList1.Visible = Not DataList1.Visible
      If DataList1.Visible Then
         DataList1.Text = DataGrid1.Text
         DataList1.ZOrder      ' make sure the list is on top of the grid
      End If
   End If
End Sub

Private Sub DataGrid1_Click()
   DataList1.Visible = False
End Sub